home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib06.dsk
/
RANDOM BUT PREDICTABLE.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
117b
|
6 lines
10 A = PEEK(78): REM 78-$4E
20 REM PROTECT AGAINST A=0
30 B = A +1
40 FOR X = 1 TO B
50 NUM = RND(1)
60 NEXT X